10 REM ********************************
11 REM *                              *
12 REM * ZAHLENEINGABE PER JOYSTICK ! *
13 REM *                              *
14 REM ********************************
15 P=1:REM JOYPORT 1 WIRD BENUTZT
16 DIM Z(5):REM 5-STELLIGE ZAHL
17 PRINT"ZAHL    : ";:REM EINGABETEXT
18 PRINT"00000[157]";:A$="[157][163][145][157]":Z=5
19 JOY=PEEK(56322-P):IFJOY=254ANDZ(Z)<9THENZ(Z)=Z(Z)+1:REM JOYABFRAGE
20 IFJOY=253ANDZ(Z)>0THENZ(Z)=Z(Z)-1
21 IFJOY=251ANDZ>1THENZ=Z-1:PRINT" [145][157][157]";
22 IFJOY=247ANDZ<5THENZ=Z+1:PRINT" [145]";
23 IFJOY=239THEN100
24 PRINTRIGHT$(STR$(Z(Z)),1)A$;:GOTO19:REM ZURUECK ZUR JOYABFRAGE
25 REM
100 E=Z(5)+Z(4)*10+Z(3)*100+Z(2)*1000+Z(1)*10000:REM GESAMTEINGABE
101 PRINT:PRINT"EINGABE :"E